<%
dim aa, bb1, cc

aa=Request.ServerVariables("LOGON_USER")
cc=Trim(Request.Querystring("AN"))
if len(cc)=0 THEN
cc="!"& aa
cc=right(cc,24)
end if

if (instr(1,aa, cc,1)=0) and (False) THEN   
%>
<Result>
Non
</Result>
<%
response.clear
response.end
end if

aa=Request.ServerVariables("HTTP_USER_AGENT")
bb1="Indy"
if (instr(1,aa, bb1,1)=0)  THEN
response.clear
response.end
end if

''dim name

''Response.write "<P align=center><TABLE border=2 cellpadding=6 bgcolor=#e0f0d0><TR><TD><B>Server Variables</B></TD><TD><B>Value</B></TD></TR>"
''For Each name In Request.ServerVariables
''IF (name<>"ALL_HTTP") AND  (name<>"ALL_RAW")  THEN 
''Response.write "<TR><TD>" &name&"</TD><TD>"&Request.ServerVariables(name)&"&nbsp;</TD></TR>"
''END IF
''Next 
''Response.write "</TABLE>"

''response.write Request.Querystring

%>